home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 36 / 036.d81 / pink elephants (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  167 lines
  1. 0 ifa=.thengosub700
  2. 1 ifa=.thena=1:load"elephants.ml1",8,1
  3. 2 ifa=1thena=2:load"elephants.ml2",8,1
  4. 3 ifa=2thena=3:load"elephants.ml3",8,1
  5. 4 ifa=3thena=4:load"elephants.ml4",8,1
  6. 5 poke55,255:poke56,55:goto25
  7. 10 ifmx>255thenmx=mx-256:poke53248+16,peek(53248+16)or128:goto14
  8. 12 ifmx<.thenmx=256+mx:poke53248+16,peek(53248+16)and127
  9. 14 poke53248+14,mx:poke53248+15,my:return
  10. 15 ifpeek(203)=37thenjy=11:return
  11. 16 ifpeek(203)=12thenjy=13:return
  12. 17 ifpeek(203)=42thenjy=07:return
  13. 18 ifpeek(203)=10thenjy=14:return
  14. 19 return
  15. 25 v=53248:s=54272:m=5:b=2500:sc=0
  16. 34 ch=14336:rm=38912:mm=1
  17. 36 poke53272,(peek(53272)and240)or14
  18. 50 pokev+21,0:print"[147]":sc=0:m=5:b=2500
  19. 51 gosub800:print"[145][145]                                       "
  20. 52 print"                                       "
  21. 54 gosub600
  22. 56 gosub650
  23. 57 pokev+21,255:poke50432,191:sys51104
  24. 58 w1=peek(v+30):w2=peek(v+31)
  25. 59 rem    main loop
  26. 60 poke49525,3:poke49526,20
  27. 61 poke49522,3:poke49523,6:poke49524,8:sys49152
  28. 63 w1=peek(v+30):ifw1>127then110
  29. 64 w2=peek(v+31):ifw2>127then150
  30. 65 gosub104
  31. 66 poke 49522,4:poke49523,12:poke49524,14:sys49152
  32. 68 w1=peek(v+30):ifw1>127then110
  33. 69 w2=peek(v+31):ifw2>127then150
  34. 70 gosub104
  35. 71 poke49522,3:poke49523,18:poke49524,20:sys49152
  36. 73 w1=peek(v+30):ifw1>127then110
  37. 74 w2=peek(v+31):ifw2>127then150
  38. 75 gosub104
  39. 76 poke49522,4:poke49523,24:poke49524,26:sys49152
  40. 78 w1=peek(v+30):ifw1>127then110
  41. 79 w2=peek(v+31):ifw2>127then150
  42. 80 gosub104
  43. 81 poke49522,3:poke49523,30:poke49524,32:sys49152
  44. 83 w1=peek(v+30):ifw1>127then110
  45. 84 w2=peek(v+31):ifw2>127then150
  46. 85 gosub104
  47. 86 poke49522,2:poke49523,0:poke49524,38:poke49525,1:poke49526,2:sys49152
  48. 88 w1=peek(v+30):ifw1>127then110
  49. 89 w2=peek(v+31):ifw2>127then150
  50. 90 gosub104
  51. 91 poke49522,1:poke49525,21:poke49526,23:sys49152
  52. 93 w1=peek(v+30):ifw1>127then110
  53. 94 w2=peek(v+31):ifw2>127then150
  54. 95 gosub104
  55. 96 b=b-10:ifb=0then200
  56. 97 print"[159]"tab(23)"     ":print""tab(23);b
  57. 99 w1=peek(v+30):ifw1>127then110
  58. 100 w2=peek(v+31):ifw2>127then150
  59. 101 gosub104
  60. 102 goto60
  61. 103 rem    joystick
  62. 104 jy=peek(56320)and15:gosub15
  63. 105 if(7eorjy)<>15thenmx=mx+6
  64. 106 if(11eorjy)<>15thenmx=mx-6
  65. 107 if(13eorjy)<>15thenmy=my+6
  66. 108 if(14eorjy)<>15thenmy=my-6
  67. 109 gosub10:return
  68. 110 rem     sprite collisions
  69. 112 ifw1>191then120
  70. 114 goto150
  71. 120 rem    save heroine
  72. 122 poke50447,.:poke50448,.:poke50688,128:poke50432,.
  73. 126 sc=sc+100+b:print""tab(9);sc:gosub750
  74. 128 pokev+16,96:pokev+14,48:pokev+15,200
  75. 130 goto54
  76. 150 rem    character collision
  77. 151 poke50447,0:poke50448,0:poke50688,128
  78. 152 poke50432,0:poke2047,193
  79. 154 forx=0to24:pokes+x,0:next
  80. 156 pokes+24,143:pokes+5,16:pokes+19,16:pokes+6,252:pokes+20,249
  81. 158 pokes+4,21:pokes+18,17:pokes+1,68:pokes+15,42:fori=1to200:next
  82. 160 pokes+4,20:pokes+18,16:fori=0to400:next
  83. 162 forx=0to24:pokes+x,0:next
  84. 164 m=m-1:print""tab(35);m:ifm=0then200
  85. 165 fort=0to250:next
  86. 166 pokev+16,96:pokev+14,48:pokev+15,200:poke2047,192:mx=48:my=200
  87. 170 poke50432,191:goto58
  88. 200 print"                                        "
  89. 201 pokev+21,.:forb=1to50:poke646,int(rnd(.)*255)
  90. 202 print"               game over                ":next
  91. 210 goto25
  92. 600 rem    setups
  93. 602 poke49525,3:poke49526,20
  94. 604 forx=39to44:pokev+x,10:next:pokev+45,7:pokev+46,5:pokev+37,10
  95. 606 pokev+38,9:pokev+28,192:pokev+0,96:pokev+1,82:pokev+2,96:pokev+3,178
  96. 608 pokev+4,144:pokev+5,122:pokev+6,192:pokev+7,146:pokev+8,240
  97. 610 pokev+9,17:pokev+16,96:pokev+10,5:pokev+11,104:pokev+12,33:pokev+13,76
  98. 612 pokev+14,48:pokev+15,200:forx=2040to2045:pokex,195:next:poke2046,194
  99. 614 poke2047,192:pokev+27,63:poke50433,0:mx=48:my=200
  100. 618 poke50434,2:poke50435,255:poke50436,0:poke50437,0:poke50438,253
  101. 620 poke50439,0:poke50440,3:poke50441,0:poke50442,254:poke50443,1
  102. 622 poke50444,0:poke50445,0:poke50446,0:poke50447,0:poke50448,0:return
  103. 650 rem    playing screen
  104. 652 print"[147]   [159]score ";sc;tab(17)"bonus ";b;tab(31)"men ";m
  105. 654 print"---------------------------------------"
  106. 655 print"-[150]pink[159]--[150]elephants[159]--[150]pink[159]--[150]elephants[159]--[150]pink"
  107. 656 print"[152]$%&   $%&   $%&         $%&   $%&   $%&"
  108. 657 print"'()   '()   '()         '()   '()   '()"
  109. 658 print"*+,   *+,   *+,         *+,   *+,   *+,"
  110. 659 print"[159]$%&         $%&   $%&   $%&         $%&"
  111. 660 print"'()         '()   '()   '()         '()"
  112. 661 print"*+,         *+,   *+,   *+,         *+,"
  113. 662 print"[152]$%&   $%&         $%&         $%&   $%&"
  114. 663 print"'()   '()         '()         '()   '()"
  115. 664 print"*+,   *+,         *+,         *+,   *+,"
  116. 665 print"[159]$%&   $%&   $%&   $%&   $%&   $%&   $%&"
  117. 666 print"'()   '()   '()   '()   '()   '()   '()"
  118. 667 print"*+,   *+,   *+,   *+,   *+,   *+,   *+,"
  119. 668 print"[152]$%&         $%&         $%&   $%&   $%&"
  120. 669 print"'()         '()         '()   '()   '()"
  121. 670 print"*+,         *+,         *+,   *+,   *+,"
  122. 671 print"[159]$%&   $%&   $%&   $%&   $%&   $%&   $%&"
  123. 672 print"'()   '()   '()   '()   '()   '()   '()"
  124. 673 print"*+,   *+,   *+,   *+,   *+,   *+,   *+,"
  125. 674 print"[152]$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&"
  126. 675 print"'()'()'()'()'()'()'()'()'()'()'()'()'()"
  127. 676 print"*+,*+,*+,*+,*+,*+,*+,*+,*+,*+,*+,*+,*+,"
  128. 680 return
  129. 700 poke53280,.:poke53281,.:poke53272,21
  130. 710 print"[147][208]lease wait while [201] find some elaphants":return
  131. 750 rem    sound
  132. 754 forl=0to24:pokes+l,0:next
  133. 756 pokes+18,128:pokes,75:pokes+5,0:pokes+6,240:pokes+14,12:pokes+15,250
  134. 758 pokes+24,207
  135. 760 forl=0to35:pokes+4,17:pokes+1,peek(s+27)
  136. 762 fort=0to50:next:next:pokes+4,0:return
  137. 800 rem    title screen
  138. 802 print"[147]":poke53281,0:poke53280,0
  139. 804 gosub 840
  140. 806 gosub 840
  141. 807 print
  142. 808 print:printtab(4)"$%&"tab(32)"$%&"
  143. 810 printtab(4)"'()                         '()"
  144. 812 printtab(4)"*+,"tab(32)"*+,":print:print
  145. 814 gosub840
  146. 816 gosub840
  147. 820 print"[150]      p i n k    e l e p h a n t s"
  148. 822 print" by: j. c. hilty"
  149. 824 print"[154]copyright 1987"
  150. 828 print"   press space or firebutton to start ":poke198,.
  151. 829 print"            press q to quit."
  152. 830 geta$:ifa$="q"ora$="[209]"thengosub60000:goto828
  153. 831 ifa$=" "thenreturn
  154. 832 if(peek(56320)and16)<>.then830
  155. 838 return
  156. 840 print"[152]$%&[159]$%&[152]$%&[159]$%&[152]$%&[159]$%&[152]$%&[159]$%&[152]$%&[159]$%&[152]$%&[159]$%&[152]$%&"
  157. 842 print"[152]'()[159]'()[152]'()[159]'()[152]'()[159]'()[152]'()[159]'()[152]'()[159]'()[152]'()[159]'()[152]'()"
  158. 844 print"[152]*+,[159]*+,[152]*+,[159]*+,[152]*+,[159]*+,[152]*+,[159]*+,[152]*+,[159]*+,[152]*+,[159]*+,[152]*+,":print
  159. 846 return
  160. 60000 print"[145][145]                                      "
  161. 60005 print"  are you sure you want to quit? :y/n:":poke198,.
  162. 60010 a=peek(203):ifa<>25anda<>39then60010
  163. 60020 ifa=39thenprint"[145]                                       [145][145]":return
  164. 60030 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  165. 60040 geta$: print"[147]";:ifer<>63thenend
  166. 60050 sys65418:pokev+21,.:poke53272,21:load"hello connect",8
  167.